<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>管理页面</title>
<%
	if Session("Username") = "" then
		Response.Redirect("../index.html")
	end if
%>

<style type="text/css">

#adminBody
{
	width:1024px;
	margin-right:auto;
	margin-left:auto;
	background-image: url(../images/admin-bg.png);
	background-repeat: no-repeat;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	background-color: #E8E6EE;
}
#adminBody .uptop {
	width: 1024px;
	margin-right: auto;
	margin-left: auto;
	height: 306px;
}
#adminBody .middle {
	height: 55px;
	width: 1024px;
	font-family: "微软雅黑";
	font-size: 26px;
	color: #B7A483;
	text-align: left;
	vertical-align: middle;
	letter-spacing: 0.2em;
	font-weight: normal;
	padding-top: 6px;
	padding-left:330px;
}
#menuBar 
{
	font-family: "微软雅黑";
	font-size: 22px;
	color: #B7A483;
	text-align: left;
	vertical-align: middle;
	letter-spacing: 0.2em;
	margin: 5px 10px 5px 5px;
	border: 2px solid rgb(104,157,134);
	width: 235px;
	height:290px;
	float: left;
	background-image: url(../images/gic3524133.jpg);
	background-position:-10px -35px;
	background-repeat:no-repeat;
	overflow:hidden;
}
#content
{
	margin:5px  0px 5px 0px;
	border:solid 2px rgb(104,157,134);
	width:760px;
	float:left;
}
.ContentTab {
	border:2px solid rgb(85,127,0);
	width:755px;
	height:55px;
	font-family: "微软雅黑";
	font-size:16px;
	color: #B7A483;
	text-align:center;
	vertical-align: middle;
	margin: 2px 2px 2px 2px;
	cellspacing:0;
	cellpadding:0; 
}
</style>

</head>
<body>
<div id="adminBody">
  <div class="uptop"> </div>
  <div class="middle">
  <a>活动管理</a> | 
  <a>人员管理</a> | 
  <a>物资管理</a> | 
  <a>站内信管理</a> | 
 
  </div>
  <div id="menuBar">
  <span>活动列表</span><br />
  <span>删除活动</span><br />
  </div>
  <div id="content"><table width="200" border="1" cellspacing="4" cellpadding="4" summary="22">
  <caption>
    11
  </caption>
  <tr>
    <th scope="col">&nbsp;</th>
    <th scope="col">&nbsp;</th>
    <th scope="col">&nbsp;</th>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>

  	<table class="ContentTab" border="1">
    	<tr style="border-bottom-style:2px solid red;">
        	<th border="1">活动名称</td>
            <th >活动日期</td>
            <th >活动地址</td>
            <th >出席人数</td>
            <th >是否有效</td>
          <td width="20"><input type="checkbox" name="checkbox1" value="checkbox"> </td>
        </tr>        	
            <%
				set dbConnection = Server.CreateObject("ADODB.Connection")
				dbConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
				dbConnection.Open("D:\\工作资料\\web系统\\data\\activity.mdb")
				SQLStr = "select ActName, ActDate, Address, PeoNum, isDelete from activity"
				set rs=Server.CreateObject("ADODB.recordset")
				'rs.Open "Select * from Users", dbConnection
				rs.Open SQLStr, dbConnection
	
				if rs.eof or rs.bof then '如果为空，即不存在
					Response.write("没有任何活动，请先添加！")
				else '不为空则
					do until rs.EOF
					Response.Write("<tr border='1px solid red'>")
  					for each x in rs.Fields
    				'Response.Write(x.name)
    				'Response.Write(" = ")
				
    					Response.Write("<td>" & x.value & "</td>")		
				
  					next
  					'Response.Write("<br />")
					Response.Write("<td><input type='checkbox'  value='checkbox'></td>")
					
  					rs.MoveNext
					Response.Write("</tr>")
					loop
					
				end if
				
				'生成最后一行的输入框
				Response.Write("<tr>")
				Response.Write("<td><input type='text' size='15'/></td>")
				Response.Write("<td><input type='text' size='15'/></td>")
				Response.Write("<td><input type='text' size='15'/></td>")
				Response.Write("<td><input type='text' size='15'/></td>")
				Response.Write("<td><input type='text' size='15'/></td>")
				Response.Write("</tr>")
	
			%>
    </table>
  </div>
</div>
<form action="logout.asp" method="post" name="logout" >
<input name="logout" type="submit" value="退出" />
</form>
</body>
</html>
